home *** CD-ROM | disk | FTP | other *** search
/ c64.rulez.org / 2014.05.c64.rulez.org.tar / c64.rulez.org / pub / c64 / Scene / Old / b / Ballmania+3-Unicess.ZIP / BALLMANI.D64 / 05. unicess (.txt) < prev    next >
AmigaBASIC Source Code  |  2000-07-01  |  6KB  |  40 lines
  1.                                                                                                                                                                                     5^p
  2.  
  3. ^
  4. VAR6440+expifreturnp6<0X7C><0XF476A3>and.{$7e}255{$7e}<0X7E>else{$7e}VARFFFFFBFFandVARFFFFC101modmod/65clng&<0X61><0X7F>VAR01A7<0X54>asc<0X7F><0X60><0XF476C4><0XF476C5>$<0XF476C7>3<0X46,0XFFFFFFFC><0X7F>rem_FD{CBM-F}/a
  5.                                                                                                                                                                                                absrem?a{$f6}&_{CBM-P}{$60}a{$fb}{$7f}q{$e1}/!{CBM-@}{$fa}{$7c}/A{CBM-*}{CBM-*}Y@_<_b~~{$f6}P~{SHIFT-*}{$fa}{$fa}
  6. {$fc}5hG
  7. {$fe}{$f1}{$f1}>{CBM-@}X4{$fe}{$f4}{$fb}
  8. val<0XEF,0X01>79and)H<0XF47759>asccallH<0XF4775D>input<0XEF,0XFFFFFFFC>02ZfVAR0601cvieoffix<0XF4776B>dmkl$=6.73195E-3162<0X7C>L<0XF4777B>1V^<0XF47784>fnrndoVAR3B3Fdlocifh<0X48>l<0X48>cwhileqand{$7b}&<0X61>then?<0XF477A0>clng<0X49><0X5C>113<0XF477A6>remd{CBM-V}{$fa}A!!{$f2}!A{$f1}{SHIFT-+}I{$f4}F^H~GA{$f1}_o?o!{$f8}X~ArFs{$f1}{$7f}!FqXOi{$e9};3{$e4}{CBM-@}
  9.                                         and<0XF47823>'LABELFFFF99C0VAR2622readFallforQ9?o5notasc<0X61>!lsetHmks$@!+Scosrnda;while<0XF4784A>                                         <0XC00,0X00>rndlogmode=putcvsq!k<0X55>ascabs=d<0XAF,0X00>^asc<0XF47897><0X5F>ifreturnf43<0X54>asc<0XAF,0X00><0XF478A2>ai<0X4D>inkey$linea9cvs+cvd=u<0X52><0X51>linee]<0XF478B4>V2373591313<0XF478BB><0X20>Q<0XAF,0X00>aif/s<0XAF,0X01>VAR0FCB\<0XF478CA>33<0X5F>#amks$<0X61><0XF478D2><0XF478D3>Felseifelseifgotolsetelseiabs97toVAR26011log<0X58>common<0XF478E6>X[readk/andv<0XF478EE>)=9jw,<0XF478F5><0XF478F6>str$while<0XF478FC><0X5F>0elseelseif5N<0X7F>common:<0XF47906>VAR5A9F<0X60><0X3B>0eof<0X4A>Xj:<0XAF,0X00>//andgetf3xfix<0X54>6andPscvd5/printsgn.mkd$aK'                                                                                                                                                                                                 -=v9Igosub<0XF47968>VARFFFFE60Ajsinb5017VAR736Aandcintnextrreturn4readXffH<0X59>ycos9/113VARFFFFC474/VAR5151m<0X8F,0X00><0X7F>H<0X8F,0X00>clngVARFFFFC493<0X58>!clng3071chr$5loc9window{$60}left$ <0XF479AB>ecall<0X8F,0XFFFFFFFC>xascimp(:zclose <0X51>right$sqr$7039line<0X59>OalineF2667f<0X4F>?read<0XF479CF><0X8F,0XFFFFFFFC>!Q!then1ifusingexp_<0X53><0XF479DC><0X20>VARFFFFEA0E!{$7b}48642rB<0XF479E9>VARFFFFD002LABEL421A                                                    cvdrndX<0XC2,0X00><0X4F>/<0XF47A29>5VAR0E8E"{$e6}{$7d}NA{$fb}aRA
  10. 4<0X7F>or<0X7F><0XF47A3F>then[close<0XF47A43>1/right$<0X7E>74272494756xopen<0X20>LABEL0264B<0X5F>cvdN?U9commonS10 6&hB115asc<0X4C>'rif1Fz<0X61>C3<0XF47A75>1put(EL<0XF47A7B><0X49>
  11. <0XC2,0X00>Fatnfor5using{$7e}absP<0X61>9loginkey$field14rem
  12. 1-r1{CBM-K}NX{SHIFT-*}Nk{CBM-P}H
  13. <0X7C>val
  14. {$60}Nthen<0X7E>/H
  15. gotoabsv{$60}nabs
  16. 4<0XC2,0X00><0XC2,0X01>rem{SHIFT-POUND}@{$ef}d {SHIFT-+}{$e4}{$e6}NP{$60}0oj4HA{$60}{$ef}#
  17. cvs&h3068<0XF47AD9><0X4B><0X20><0XC2,0X00>sincvd<0XC2,0X01>                                                                                                                                                                                                                                      <0X60><0XF47B13>0'<0X7E>Olen@exp<0X7C>rem{$e6}{SHIFT-*}#@{CBM-Z}{$f8}
  18. 3<0XF47B2B>let<0X48>1eof2439004314I<0XF47B36>exp<0X5E,0XFFFFFFFC>*returnopen2cvdeqvmks$<0X5E,0XFFFFFFFA>^-8.49892E+24
  19. <0XF47B4A><0X48>then/<0X5E,0X00>9abslexp<0X7E>&<0X3B>Nwrite
  20. abs@poke8jthen6abs<0X48>1lineVAR4034<0XF47B69>*readmks$then{$60}                                                                                                                                                                        43258 VAR5305absf)
  21. <0X5F>atncos/elseexpififexp<0X19,0X00>cvdtWmks$                    62<0X60><0X60>k^w4<0X60><0X7E><0XF47BFC>pstep'atnrndGareamks$=left$>acommon<0X3E,0XFFFFFFFC>8letexp<0XF47C10>/8.17005E-315coscosif<0X3E,0X0C><0XF47C20>+let_cvl{$60}<0X49>*@
  22. Mclng<0XF47C2C>if5                                                                                                                                                                                                                         cvdcosb*<0X57>chr$'fn:library5to
  23. putHO&h4B84else
  24. $<VARFFFF8915Kright$9-for%<0X96,0X00><0X4B>areaLABELFFFFD15B0fnmid$exp<0X58>
  25. lr<0X20>33
  26. cdblstr$LABEL69EDifefixeqvinputkcommoninputinput:then<0X56>y{$7c}for*elseifW&eof<0X96,0X00>/
  27. put^4printamid$randomize&%>mks$<0X53>:X0mid$<0X96,0X00>N9.for<0XF47CCE>1'296617103<0X7E>1xor
  28. cdbl
  29. inkey${$60}6VAR0F19<0X61>l{$60}9<0XF47CE6>expAK34<0X46>VAR0AA2^aBBread&h9900 <0X5B>cvd<0X5B>1{$7e}7foru<0XF47D2A>rset7d<0XF47D2E>J<0X45>A*<0X4C>m<0XF47D35>z{$60}dataclose<0X52>cos<0XF47D3E><0X48>cvd9<0X46>0eabs<0XF47D48>elseifHzabslset3696673100><0X61><0XE4,0X00>-/{$60}cint<0X47>mid$mks$<0XF47D5E>p%oa<0X61>bZstr$40open&<0X62>01{$7e}!Kcints<0XF47D73>cdbl19170<0XF47D78>/0dNb8 ormki$
  30. 8.09315E-315oreof<0X57>int1printy$3$sqr 7lofdata
  31. y78<0X7D>sqr<0XF47DA5><0X56>elseifXt<0XF47DAA>cvd@Yd<0XF47DAF>str$cvi<0X5E><0X20>q^onv<0XF47DB8>ff
  32. <0X7F>onWuuumks$
  33. 0230%///
  34. readMMMabs<0X4A>lenmks$xxx<0X62>5<0X7C><0XF47DDC>J{$60}CC
  35. T'elseifLL<0XF47DE7>@elseif<0XF47DEA><0XF47DEB><0XF47DEC>@Xx<0X7E><0XF47DF1><0X48>;@exp@fieldwrite<0X60><0X5A>a{$60}lofifvif atnII                                                                                                                                                           vintprintOyU<0XAD,0X00>sinnextJyptab=eqvopentanFKintthen2<0X7E>9c<0X7E>string$D34FnextE5lx{CBM-B}{CBM-H}{$60}3_{CBM-P}{$f8}S556&&  {CBM-A}{CBM-A}{CBM-A}C{CBM-P}{$f2}]Fu{CBM-G}{$fe}{$f1}
  36.  
  37. {CBM-C};fieldpEp<0XF47E5C><0XF47E5D>a<0XF47E5F>JzOreturnLrsetwhilevyzEuIyuNint/writeO[<0XF47E76>ND0<0XF47E7A>VAR01060
  38. right$zatnandatnmkl$<0X48>8<0X7F>^X<0X4C>elseif<0X7C>common{$7c}'cdbl{$7c}len31122C02<0XF47E9A>int;string$N[LABEL1111[openu4407printwrite<0X59>onlofB12VAR6AF5fwendw<0XAD,0X00>]absmkl$ <0XF47EBE>clng0whilereadwhileIreadywrite<0X7F>writewhile{$7e}read{$7e}998<0XF47ED4>886_6911*                                                                                                                                                                            Lleft$L\\onononIonzFmkl$<0X5C>EIEelseifA<0X61><0X58><0XF47F27>@return
  39. <0XF47F2B>dataabs<0XF47F2E>
  40. <0XF47F30><0X5C>^<0X4C><0XF47F34>Vt<0XF47F37>VARFFFF8794D<0XF47F3C>49328valx<0X5F>chr$returnC[NIzNzgoto<0XAA,0X00><open<0X3B><0X7F><0X3B>G<0XF47F56>_>log9[gosubmid$expafixarea,>afor<0XF47F66>clng<0XF47F68>LABELFFFF8008&commonHF+open+valKmkd$getFG9-NANinputv\<0X7D><0XF47F83>_{$7d}linelen{$7d}writeNJintopengosubeyVAR0419<0XF47F94><0XF47F95><0XF47F96><0XF47F97>{$60}4KF<0X45>F<0XF47F9E><0XF47F9F>log\commongoto<0X5E>aabsVARFFFFF175eqvcommonvalx6w21ujcviabs"{CBM-A}J)                  VSG6<0X4A>!QY/for]cviv<0XF48001>fwx&h1C4F#3y<0XF4800B>3_orMJ-y)747.))yp<0XF4801C>mks$expI3109359940O<0X52>DforDuu<0XF4802C>e3Oreadput<0X7E>Xy9y<0XF48037>YtanEYE$E<0XF4803F>cintLABEL0D44print3zcosxFprinttcvd.@LABELFFFFFF82cvielseif{$7c}\getW{$7c}gotoy+int<mkd$Jinkey$uVgosubqfix<<0X4B>printinputNgosubgosubFgosubvO<0XF48073><0XF48074><0XF48075>VARFFFFE5030Hintxor
  41. )<0X54>@dinkey$Emks$8lset<0XF3,0X00>75I\write<0X5A>or38{$7c}<0X62>tan<<Doxor<0X59>Iintstr$XifDDval<0X4F><0XF3,0X00>Mlen2imp6=<0X5D><0X56>zgosub<0X4B>open:<0XF480B5>8fcdbl<0X56><0XF480BA><0XF480BB><0XF480BC><0X5C>9<0XF480BF>and
  42. @@2<0XF480C7><0X20><0X7F>onLABELFFFFA262B<0XF480CF><0X48>cosDj=19cvifor*get_cvlLABEL2995pa                                               @ccvl3088629859#<0XF4811B>5call'<0X56>VAR042D<0X47>Ogotox<0XF48127>7<0XF48129><0X61>a<0X5C>uvalZ<0XF48130><0XF48131><0XF48132><0XF48133>asc%VARFFFFEB05NZ7